Apple II Magazines (DO)/Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip/Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do/NICOMACHUS.bas

BASIC Source File | 1996-12-24 | 4KB | 88 lines

10  GOSUB 1000
20  PRINT
25  HOME : VTAB 5: HTAB 5
27  PRINT "HELLO, MY NAME IS NICOMACHUS."
29  PRINT : HTAB 5: PRINT "WHAT'S YOUR NAME?": PRINT : HTAB 14: INPUT N$
30  HOME : VTAB 3: HTAB 3: PRINT N$",": PRINT : HTAB 5
32  PRINT "PLEASE THINK OF A NUMBER BETWEEN "
34  PRINT : HTAB 5: PRINT "1 AND 100.  DON'T TELL ME, THOUGH."
40  PRINT : HTAB 5
42  PRINT "DIVIDE YOUR NUMBER BY THREE. WHAT"
44  PRINT : HTAB 5: INPUT "IS THE REMAINDER? ";A
50  PRINT : HTAB 5: PRINT "NOW DIVIDE YOUR NUMBER BY FIVE."
52  PRINT : HTAB 5: PRINT "DOES IT HAVE A REMAINDER?  TELL ME."
54  PRINT : HTAB 10: INPUT B
60  PRINT : HTAB 5: PRINT "DIVIDE YOUR NUMBER BY SEVEN FOR "
62  PRINT : HTAB 5: PRINT "ME.  WHAT IS THE REMAINDER? "
64  PRINT : HTAB 10: INPUT C
80  PRINT "LET ME THINK A MOMENT . . . "
90  FOR I = 1 TO 1500: NEXT I
100 D = 70 *A +21 *B +15 *C
110  IF D < = 105  THEN  GOTO 140
120 D = D -105
130  GOTO 110
140  HOME : VTAB 10: HTAB 2
145  PRINT "YOUR NUMBER WAS ";D;", RIGHT,"N$"?"
150  PRINT : HTAB 16: INPUT A$
160  IF  LEFT$(A$,1) = "Y"  THEN  GOTO 220
170  IF  LEFT$(A$,1) = "N"  THEN  GOTO 240
220  PRINT : HTAB 10: PRINT "HOW ABOUT THAT!!"
230  GOTO 250
240  PRINT : HTAB 5: PRINT "I THINK YOU MUST HAVE AN ERROR IN"
242  PRINT : HTAB 5: PRINT "YOUR ARITHMETIC.  LET'S TRY AGAIN."
245  GOSUB 2000
246  GOTO 30
250  PRINT : PRINT : HTAB 5: PRINT "DO YOU WANT TO TRY AGAIN, "N$"?"
252  PRINT : HTAB 14: INPUT AE$
254  IF  LEFT$(AE$,1) = "Y"  THEN  GOTO 30
256  GOTO 350
270  GOTO 30
350  HOME : VTAB 5: HTAB 10
355  PRINT "N I C O M A C H U S"
360  PRINT : PRINT : HTAB 5: PRINT "THIS GAME FROM COMPUTER ADVENTURE"
365  PRINT : HTAB 5: PRINT "SHOULD HAVE BEEN FUN FOR YOU."
370  PRINT : HTAB 8: PRINT N$", I HOPE YOU MEET WITH MY"
375  PRINT : HTAB 5: PRINT "FRIEND, NICOMACHUS, AGAIN."
380  PRINT : PRINT : HTAB 16: PRINT "GOOD BYE"
400  END
999  END
1000  HOME : VTAB 5: HTAB 10
1010  PRINT "N I C O M A C H U S"
1020  PRINT : PRINT : HTAB 8
1030  PRINT "ALMOST EVERYONE HAS BEEN ASKED"
1035  PRINT : HTAB 5: PRINT "TO THINK OF A NUMBER AND THEN TO "
1040  PRINT : HTAB 5: PRINT "DO SOME PRIVATE CALCULATIONS. "
1045  PRINT : HTAB 5: PRINT "AFTER REVEALING THE RESULTS OF "
1050  PRINT : HTAB 5: PRINT "THESE CALCULATIONS TO THE "
1055  PRINT : HTAB 5: PRINT "QUESTIONER, THE ORIGINAL NUMBER "
1060  PRINT : HTAB 5: PRINT "IS REVEALED."
1070  GOSUB 2000
1080  HOME : VTAB 5: HTAB 8
1090  PRINT "MANY FORMS OF THIS GUESSING GAME"
1095  PRINT : HTAB 5: PRINT "EXIST.  THE OLDEST RECORDED"
1100  PRINT : HTAB 5: PRINT "EXAMPLE SEEMS TO BELONG TO "
1105  PRINT : HTAB 5: PRINT "NICOMACHUS, A GREEK WHO DIED"
1110  PRINT : HTAB 5: PRINT "ABOUT 120 A.D.  HE TELLS YOU "
1114  PRINT : HTAB 5: PRINT "TO THINK OF ANY WHOLE NUMBER"
1117  PRINT : HTAB 5: PRINT "BETWEEN 1 AND 100.  HE THEN"
1119  PRINT : HTAB 5: PRINT "ASKS YOU TO DIVIDE YOUR NUMBER"
1125  GOSUB 2000
1130  HOME : VTAB 5: HTAB 5
1135  PRINT "BY 3, THEN BY 5, AND THEN BY 7."
1140  PRINT : HTAB 5: PRINT "HE ASKS YOU TO TELL HIM THE "
1145  PRINT : HTAB 5: PRINT "THE REMAINDER EACH TIME."
1150  PRINT : HTAB 5: PRINT "HE QUICKLY TELLS YOU THE NUMBER"
1155  PRINT : HTAB 5: PRINT "YOU HAD IN MIND."
1160  PRINT : HTAB 8: PRINT "YOU SHOULD TRY TO FIGURE OUT"
1170  PRINT : HTAB 5: PRINT "THE METHOD NICOMACHUS USED.  IF"
1175  GOSUB 2000
1180  HOME : VTAB 5: HTAB 5
1185  PRINT "YOU CANNOT FIGURE OUT HIS FORMULA, "
1190  PRINT : HTAB 5: PRINT "LIST LINES 100 TO 130 OF"
1195  PRINT : HTAB 5: PRINT "THIS PROGRAM AND EXAMINE THEM."
1197  VTAB 16
1200  PRINT : HTAB 8: PRINT "GOOD LUCK WITH NICOMACHUS."
1210  GOSUB 2000
1220  RETURN
1999  END
2000  VTAB 24: INPUT "PRESS RETURN TO CONTINUE ";RR$: RETURN